home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / E / DBuffer / doubletest.e < prev    next >
Encoding:
Text File  |  1997-01-25  |  1.0 KB  |  32 lines
  1. /*rewritten from doubletest.e in RKRM*/
  2.  
  3. MODULE 'other/doublebuffer','graphics/view','intuition/screens'
  4. CONST SCR_WIDTH=320, SCR_HEIGHT=200, SCR_DEPTH=2
  5. PROC main()
  6.   DEF ktr, xpos, ypos, ds:PTR TO dscreen
  7. ds:=opendscreen([0,           -> LeftEdge
  8.                  0,           -> TopEdge
  9.                  SCR_WIDTH,   -> Width
  10.                  SCR_HEIGHT,  -> Height
  11.                  SCR_DEPTH,   -> Depth
  12.                  0,           -> DetailPen
  13.                  1,           -> BlockPen
  14.                  NIL,         -> ViewModes
  15.                  NIL,         -> Type
  16.                  NIL,         -> Font
  17.                  NIL,         -> DefaultTitle
  18.                  NIL,         -> Gadgets
  19.                  NIL          -> CustomBitMap
  20.                  ]:ns)
  21.  
  22.   SetAPen(ds.screen.rastport, 1)
  23.   FOR ktr:=1 TO 199
  24.     xpos:=ktr
  25.     ypos:=IF Mod(ktr,100)>=50 THEN 50-Mod(ktr,50) ELSE Mod(ktr,50)
  26.     SetRast(ds.screen.rastport, 0)
  27.     RectFill(ds.screen.rastport, xpos, ypos, xpos+100, ypos+100)
  28.     dswitch(ds)
  29.   ENDFOR
  30. closedscreen(ds)
  31. ENDPROC
  32.